perm filename EINIT.CMD[1,RWF] blob sn#871265 filedate 1989-03-15 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
C⊗;
αXDEFINE P⊗↔
α!αxjust 0,0,74⊗↔α!⊗↔αβ⊗↓

αXDEFINE PI⊗↔
α!αxjust 5,0,74⊗↔α!⊗↔αβ⊗↓

αXDEFINE PQ⊗↔
α!αxjust 8,8,66⊗↔α!⊗↔αβ⊗↓

αXDEFINE PQI⊗↔
α!αxjust 13,8,66⊗↔α!⊗↔αβ⊗↓

⊗⊂ Brings in REPLY macro from EINIT[1,3] (if necessary) and executes it.⊃

αxDEFINE R⊗↔
	αzR1⊗↔αxSET R1=NULL⊗↔αβ#αzREPLY⊗↔
αβ⊗↓

αxDEFINE R1⊗↔
	αxSAY Loading REPLY macro ... ⊗↔
	αxEXECUTE EINIT.CMD[1,3](14)⊗↔
αβ⊗↓

αxDEFINE NULL⊗↔
	⊗≠
αβ⊗↓

αxDEFINE REPLY⊗↔
	αxSAY Please use the macro R instead of REPLY.⊗↔
αβ⊗↓